FM Towns: Free Software Collection 6

home *** CD-ROM | disk | FTP | other *** search

/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / ms_dos / ml / ml190.doc < prev next >

Wrap

Text File | 1993-07-08 | 26.7 KB | 816 lines

ムーンライト　ver1.90　バージョンアップ箇所の説明 1991/12 K.Yoshioka 　本ﾄﾞｷｭﾒﾝﾄはＭＬ１．８０ユーザーのために今回のﾊﾞｰｼﾞｮﾝｱｯﾌﾟで変更になった箇所だけをﾋﾟｯｸｱｯﾌﾟして説明しています。ＭＬの機能でわからない箇所があったらＭＬ．ＤＯＣならびにＡＵＴＯ．ＤＯＣを参照してください。 ★　X-OFFｺｰﾄﾞ受信時の不都合を改善ＦＭＲ版ＭＬで、通信ﾊﾟﾗﾒｰﾀをXﾌﾛｰありで設定した場合、送信できないだけではなく他の操作も効かなくなりことがありﾊﾝｸﾞｱｯﾌﾟと間違えられるｹｰｽがあったようです。この点は改良しました。ただ、文字化け等でもX-OFFは受かる可能性はありますから、ﾊﾝｸﾞｱｯﾌﾟと決めつけないで通信ﾊﾟﾗﾒｰﾀを初期化（具体的にはＦ８ﾘﾀｰﾝ）してみてください。 ★　シフトイン、シフトアウト処理ＦＭＲ版ＭＬは通信ﾊﾟﾗﾒｰﾀが７ﾋﾞｯﾄ長のときにｼﾌﾄｲﾝ、ｼﾌﾄｱｳﾄの処理を行なっていなかったため、漢字、半角カナが化けて通信できませんでした。７ﾋﾞｯﾄ長を選ぶと自動的にｼﾌﾄｲﾝ、ｼﾌﾄｱｳﾄ処理を行なうようにしました。 ★　画面のゴミＦＭＲ版ＭＬで、ＥＳＣを押してＭＬを終了するとＭＬの画面が残ってしまう、というバグをなおしました。 ★　日本語ＦＥＰとの相性ＦＭＲ版ＭＬはＯＡＫ以外のＦＥＰとはシステム行を取り合う関係で相性が悪いようで、今回ＡＴＯＫ６とＥＧＢｒｉｄｇｅに関して改善しました（テストできるＦＥＰがこれしかなかった）。他のＦＥＰでも改善されているはずです。 ★　ローカルループバック ^A,] で通信がﾙｰﾌﾟﾊﾞｯｸ状態になります。これはRS-232Cに機器（ﾓﾃﾞﾑ等）が接続していない状態でも可能です。この状態から平常に戻るには再度このｺﾏﾝﾄﾞを実行します。（ＦＭＲ版がうまくいかなくて９８版だけの機能となりました） ★　逆スクロール検索の時ｶｰｿﾙがその単語の頭で止まるようにしました。範囲指定した箇所をｷｰﾎﾞｰﾄﾞﾏｸﾛに登録可能となりました（ｷｰﾎﾞｰﾄﾞﾏｸﾛは別項参照）。 ★　コマンドによる強制終了ＡＵＴのﾌﾟﾛｸﾞﾗﾑ上からＭＬを終了できるようにしました。 cmd 0 回線が接続になっていても強制的にDTR信号を落として（MODEMの設定にもよりますが、これで回線が切れます）MS-DOSに戻ります。 ★　ﾌﾗｲﾝｸﾞXMODEM ﾌﾟﾛﾄｺﾙにﾌﾗｲﾝｸﾞｵﾌﾟｼｮﾝを設けました。YMODEM-G（BATを含む）以外で有効です。元になったﾌﾗｲﾝｸﾞXMODEMはNIFTY-ServeのPhinloda氏が考案したもので、ＭＮＰモデムではｴﾗｰが発生しないという特性を利用し従来XMODEMﾌﾟﾛﾄｺﾙ内で行っていたｴﾗｰ検出、再送を省いたものです。これによりＭＮＰとXMODEMの相性の悪さは劇的に改善されることになります（転送時間の節約になる）。ＭＬのﾌﾗｲﾝｸﾞｵﾌﾟｼｮﾝは次の点でｵﾘｼﾞﾅﾙとは違っています。ﾌﾗｲﾝｸﾞXMODEMでは積極的にｴﾗｰ検出、再送を省いていますがＭＬではｴﾗｰ検出をおこなって万が一に備えています。もしｴﾗｰが発生すれば再送不可能の状態になりアボートします。ＭＮＰのｴﾗｰﾌﾘｰを盲目的に信じるより一応のﾁｪｯｸはおこなっておくほうが心理的にも良いであろうという考えです（ＭＮＰをうっかり外してしまい、そのまま転送が始まってしまう場合だってあるかもしれません）。ｴﾗｰ検出をおこなうことによる速度低下はありません。ﾌﾗｲﾝｸﾞｵﾌﾟｼｮﾝが付くことによるﾌﾟﾛﾄｺﾙ上の相違は次の通りです。受信ﾌﾞﾛｯｸ番号１のﾍｯﾀﾞｰ（SOHもしくはSTX）が送られてきたことを確認し直後にACKを送る。さらにブロック全体を受信してｴﾗｰﾁｪｯｸをし、それに応じたｱｸﾉﾘｯｼﾞを返す。他のﾌﾞﾛｯｸは従来のﾌﾟﾛﾄｺﾙと同じ。送信ﾌﾞﾛｯｸ番号１を送った直後にACKが返ってきたものとして処理する。他のﾌﾞﾛｯｸは従来のﾌﾟﾛﾄｺﾙと同じ。 ★　キーボードマクロｷｰﾎﾞｰﾄﾞﾏｸﾛ（以後ｷｰﾏｸﾛ）とは一連のｷｰ入力をﾏｸﾛとして記憶し、必要な時にそのｷｰﾏｸﾛを呼び出すもので、少ないｷｰｽﾄﾛｰｸ数で定形の作業を行うことができます。記憶出来る文字数は79文字です。ＭＬでのｷｰﾏｸﾛは次の３種類の操作があります。　ﾏｸﾛ定義開始、終了 ^@（CTRLｷｰを押しながら@を押す、の意味） @ﾏｸﾛのｺﾋﾟｰ ^A,@ ｷｰﾏｸﾛ呼び出し ^_(またはF1),@..Z 例：ﾌﾞﾚｰｸ信号送信をｷｰﾏｸﾛで実現 ^@,^A,B[ﾘﾀｰﾝ],^@ （ｶﾝﾏは見やすくするため便宜上入れているだけで実際は入力しません）これで次回からはF1,@でﾌﾞﾚｰｸ信号が送信できます。またこの@ﾏｸﾛをBｷｰにｺﾋﾟｰするには、 ^A,@,B とします。これによりF1,Bでﾌﾞﾚｰｸ信号となり、@ｷｰは次のﾏｸﾛ定義に使えます（新たなﾏｸﾛ定義は以前の@ﾏｸﾛを消去します）。例：ｴﾃﾞｨﾀ(ED)を起動します。 ^@,F9,ED[ﾘﾀｰﾝ],^@ ﾏｸﾛ定義、ﾏｸﾛ実行ともに逆ｽｸﾛｰﾙ中でも有効です。また、ｷｰﾏｸﾛ用のﾊﾞｯﾌｧは２７個の文字列変数内に取っています。この変数を操作することによりＡＵＴのﾌﾟﾛｸﾞﾗﾑで簡単に登録、変更、ｺﾋﾟｰ、削除が可能になります。ｷｰﾏｸﾛは@,A,B,C..の順に連続した変数に割り付けられており、@ｷｰに対応する文字列変数の番号は変数%32763が指しています。注．ＡＵＴで登録した後は、その変数を必ずriside属性にしてください。さもないとＡＵＴ終了時に消えてしまいます。例：ＡＵＴでの登録 $[%32763+0] = "mail" ;@ｷｰに登録 $[%32763+1] = "board" ;Aｷｰに登録 $[%32763+2] = "chat" ;Bｷｰに登録 $[%32763+3] = "" ;Cｷｰに割り付けられたｷｰﾏｸﾛを削除 $[%32763+4] = $[%32763] ;@ｷｰをDｷｰにｺﾋﾟｰ reside $[%32763+0] reside $[%32763+1] reside $[%32763+2] reside $[%32763+3] reside $[%32763+4] また、逆ｽｸﾛｰﾙ時に範囲指定した文字列を@ｷｰにﾏｸﾛとして登録することも可能です。Ｆ１でｶｰｿﾙで範囲を決めた後@ｷｰを押すことにより登録されます。 ★　ファンクションキーの入れ替えＭＬ起動時にはＭＬがﾌｧﾝｸｼｮﾝｷｰを定義して初期化していますが、このｷｰ配列、表示が気に入らない場合はﾌｧﾝｸｼｮﾝｷｰﾃｰﾌﾞﾙを書き換えることにより入れ替え、表示替えが出来ます。このﾃｰﾌﾞﾙも文字列変数に取ってあり、ＡＵＴﾌﾟﾛｸﾞﾗﾑで操作します。ﾃｰﾌﾞﾙの先頭は変数%32765が指しています。ﾃｰﾌﾞﾙは以下のような構造になっています。 "FK-1" "FK-2" "FK-3" .. "FK-10" <-- 登録文字列 $[%32765] $[%32765+1] $[%32765+2] .. $[%32765+9] <-- 文字列変数登録するFｷｰ番号 0 1 2 .. 9 <-- 0はF1を表す %[%32765] %[%32765+1] %[%32765+2] .. %[%32765+9] <-- 整数変数 F1 F2 F3 F10 <-- ﾌｧﾝｸｼｮﾝｷｰ %[%32765+?]の値は登録するFｷｰを指しています。ＭＬ起動直後には上のように規則正しく並んでいます。$[%32765+?]には%[%32765+?]の値のﾌｧﾝｸｼｮﾝｷｰ（値が0であればF1）に登録する文字列が入っています。例：F1,F2の機能を入れ替える。 %[%32765] = 1 %[%32765+1] = 0 これだけではFｷｰの表示はかわりませんから、次のようにFｷｰを初期化します。 $1 = $[%32765+1] CMD F 1 "$1" $1 = $[%32765] CMD F 2 "$1" 例：F1をﾕｰｻﾞｰに開放する（ＭＬ内部では使用しない） %[%32765] = -1 ;これ以降でﾕｰｻﾞｰ定義した文字列をF1ｷｰに登録する例：F1をF11（PCｰ9801の場合SHIFTｰF1）に移動する。 %[%32765] = 10 $1 = $[%32765] CMD F 11 "$1" ★　逆スクロール時のファンクションキー入れ替えﾃｰﾌﾞﾙの先頭を%32764が指す以外は前項の「ファンクションキーの入れ替え」と同じです。変数を書き換えた後の初期化は必要ありません（というよりやってはいけません）。例．１０個のﾌｧﾝｸｼｮﾝｷｰの機能はそのままで番号を入れ替えます。 %1 = %32764 ;scrool時のFｷｰﾃｰﾌﾞﾙの格納位置を得る %[%1+0] = 5 ;従来F1の機能をF6にする %[%1+1] = 6 %[%1+2] = 7 %[%1+3] = 8 %[%1+4] = 0 %[%1+5] = 4 %[%1+6] = 2 %[%1+7] = 1 %[%1+8] = 3 %[%1+9] = 9 ★　ＡＵＴのﾌﾟﾛｸﾞﾗﾐﾝｸﾞ ◎お願い今回のﾊﾞｰｼﾞｮﾝでＭＬ内で使うﾜｰｸｴﾘｱの領域として文字列、整数の両変数を多量に使っています（ﾕｰｻﾞｰが簡単にｱｸｾｽ出来るように配慮した結果でもありますが）。ﾕｰｻﾞｰﾌﾟﾛｸﾞﾗﾑで使用する変数とのﾊﾞｯﾃｨﾝｸﾞを避けるため今ﾊﾞｰｼﾞｮﾝ以降では変数番号30000以降は使用しないようお願いします（ﾕｰｻﾞｰ変数は29999まで）。 ◎旧ﾊﾞｰｼﾞｮﾝのＡＵＴを走らせるには INPUT文がなくなりinput()関数となりました。次の例を参考に書き直してください。例：input $1 -> $1 = input() INPUT %1 -> %1 = atoi( input() ) ;atoi関数参照の事 ◎文字列ｺﾋﾟｰ文字列ｺﾋﾟｰの演算子(=)も式とします。したがって次のように他の演算子と組み合わせることが可能です。 if(( $1 = strleft( $2, 2 )) == "AB" ) call AB endif ◎演算子の追加以下の６種類の演算子を追加しました。ﾋﾞｯﾄごとのXOR : ^ ﾋﾞｯﾄごとのOR : | ﾋﾞｯﾄごとのAND : & ﾋﾞｯﾄごとの補数 : ~ 右ｼﾌﾄ : >> 左ｼﾌﾄ : << 優先順位、結合規則を次の表に示します。 +------+-----+-----+-----+------------------------------------+ |演算子|優先 |結合 |評価 | 説明 | | | 順位| 規則| 順位| | |------+-----+-----+-----+------------------------------------| | , 　 | 14 | -> | -> | 関数呼び出し時の引数をｶﾝﾏで区切る | |------+-----+-----+-----+------------------------------------| | = 　 | 13 | <- | | 左辺の変数に右辺の値を代入 | |------+-----+-----| |------------------------------------| | || | 12 | | | 両側のどちらかの値が０以外のとき１ | |------+-----| | |------------------------------------| | && | 11 | | | 両側の値が共に０以外の時だけ１ | |------+-----| | |------------------------------------| | | | 10 | | | ﾋﾞｯﾄ毎のOR | |------+-----| | |------------------------------------| | ^ | 9 | | | ﾋﾞｯﾄ毎のXOR | |------+-----| | |------------------------------------| | & | 8 | | | ﾋﾞｯﾄ毎のAND | |------+-----| | |------------------------------------| | == | | | | 両側の値の値が等しければ１ | |------| 7 | | |------------------------------------| | != | | | | 両側の値が等しくなければ１ | |------+-----| | |------------------------------------| | > | | | | 左側が右側より大きければ１ | |------| | | |------------------------------------| | >= | | | -> | 左側が右側より大きいか等しければ１ | |------| 6 | | |------------------------------------| | < | | | | 左側が右側より小さければ１ | |------| | -> | |------------------------------------| | <= | | | | 左側が右側より小さいか等しければ１ | |------+-----| | |------------------------------------| | >> | | | | 右ｼﾌﾄ | |------| 5 | | |------------------------------------| | << | | | | 左ｼﾌﾄ | |------+-----| | |------------------------------------| | + | | | | 足し算 | |------| 4 | | |------------------------------------| | - | | | | 引き算 | |------+-----| | |------------------------------------| | * | | | | 掛け算 | |------| | | |------------------------------------| | / | 3 | | | 割り算 | |------| | | |------------------------------------| | // | | | | 余り（割り算の後の余り） | |------+-----+-----+-----+------------------------------------| | - | | | | 直後の値をマイナスにする | |------| | | |------------------------------------| | ~ | 2 | <- | | 直後の値をﾋﾞｯﾄ毎に反転する | |------| | | |------------------------------------| | ! | | | | 直後の値が０でないなら０、０なら１ | |------+-----+-----+-----+------------------------------------| |関数()| 1 | | | 引数は左から右へ評価 | +------+-----+-----+-----+------------------------------------+ 注意．>>演算子では符号を保存しません。つまり0b10000000 >> 1 は0b0100000 0となります。 ◎表記 if( %1 ) send"abc" のような表記を可能としました（ifと括弧がくっついている）。即値に１０進数の他、１６進数、２進数が使用可能 %1 = 255 ;10進数 %2 = 0xff ;16進数 %3 = 0b11111111 ;2進数上の場合、%1、%2、%3は同じ値になります。文字定数が使用可能となりました。 %1 = 'A' ;%1には0x41が入ります %2 = '^B' ;%2には0x02が入ります %3 = '\r' ;%3には0x0dが入ります ◎関数ﾌｧｲﾙ操作関数、文字列操作関数等を新たに加えました。従来どうり、関数は単独には使えません。式（代入式、評価式）の形で使ってください。関数名は小文字しか受付けませんので注意してください。 status( %1 ) ;関数が単独で使用されているためｴﾗｰとなる %2 = status( %1 ) ;代入式になっているので問題ない if( status( %1 ) & 1 ) ;評価式になっているので問題ない関数の型、引数の型、引数の数は実行前に厳密にﾁｪｯｸされます。関数に渡す引数は式の形になっていてもかまいません。 $1 = strleft( $1, strlen( $1 ) - 1 ) 複数の引数がある関数は左の引数から評価されます。 %1 = 1 %2 = func( %1 = %1 + 1, %1 ) ;func()は架空の関数これは次の式と同等です。 %2 = func( 2, 2 ) 以下で追加になった関数を説明しますが、引数の型とﾘﾀｰﾝの型は<>で示します。 intは整数型、str文字列型変数です。関数を使った総合例はＡＵＴＯ．ＤＯＣに載せてあります。＜入出力関数＞書式：ret = input() ret :<str>入力文字列機能：改行の直前までの入力文字列を返す（改行文字は捨てられる）。最大入力文字数は４０文字で入力文字は画面に表示される。例　：$1 = input() 書式：ret = putch( c ) c :<int>出力文字 ret :<int>常に0 機能：画面に１文字書く。例　：%1 = putch('A') ＜文字列操作関数＞書式：ret = space( len ) len :<int>確保するｻｲｽﾞ ret :<str>確保した文字列。確保失敗時は"" 機能：len長の連続したﾒﾓﾘを確保し、ｽﾍﾟｰｽ（0x20）で埋める。例　：$1 = space( 10 ) 書式：ret = rchar( strval, offset ) strval :<str>文字列変数 offset :<int>取り出す位置 ret :<int>文字ｺｰﾄﾞ、失敗時(-1) 機能：strvalで指定された文字列型変数の先頭からoffset位置の文字を取り出す。 offsetが領域を超えると読みだしは拒否され-1が返る。例　：文字列の長さを計算する（同等の機能を持った関数strlen()も用意されています） $1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" %1 = 0 ;文字数カウント while( rchar( $1, %1 ) > 0 ) ;文字列の終端は0 %1 = %1 + 1 endwhile echo "文字列長=%1\r" 書式：ret = wchar( strval, offset, c ) strval :<str>文字列変数 offset :<int>書き込む位置 c :<int>書き込む文字 ret :<int>書き込み成功(0)、失敗時(-1) 機能：文字列変数内のオブジェクトの先頭からoffset位置にcを書き込む。offse tが領域を超えると書き込みは拒否され-1が返る。したがってstrvalは(offset+1) 以上の領域を持っているか、または時前に確保しておかなければいけません。例　：用意した領域をABC..Zの順に埋める $1 = space( 27 ) ;あらかじめ領域を確保 %1 = 0 %2 = 'A' while( wchar( $1, %1, %2 ) != -1 ) %1 = %1 + 1 %2 = %2 + 1 endwhile %10 = wchar( $1, %1, 0 ) ;文字列の終端はゼロ echo "$1\r" 注意：文字列の終端はゼロ（0x00）です。"ABC"の内部表現は0x41,0x42,0x43,0x 00です。書式：ret = atoi( str ) str :<str>変換対象の文字列 ret :<int>変換結果の数値機能：文字列を10進数と解釈し整数に変換する。数字以外の文字があれば変換をそこで打ち切る。例　：%1 = atoi( $1 ) 書式：ret = itoa( value, radix ) value :<int>変換する数値 radix :<int>変換の基数 ret :<int>変換後の文字列機能：valueを基数であるradixにより文字列に変換する。例　：$1 = itoa( %1, 10 ) ;%1を10進数の文字列に変換 $1 = itoa( %1, 16 ) ;%1を16進数の文字列に変換 $1 = itoa( %1, 2 ) ;%1を2進数の文字列に変換書式：ret = strright( str, n ) str :<str>文字列 n :<int>取り出す長さ ret :<str>取り出した文字列機能：文字列の右側から任意の長さの文字列を取り出す。例　：$1 = strright( $2, 3 ) 書式：ret = strleft( str, n ) str :<str>文字列 n :<int>取り出す長さ ret :<str>取り出した文字列機能：文字列の左側から任意の長さの文字列を取り出す。例　：$1 = strleft( $2, 3 ) 書式：ret = strmid( str, n1, n2) str :<str>文字列 n1 :<int>取り出す箇所 n2 :<int>取り出す長さ ret :<str>取り出した文字列機能：文字列のn1の箇所からn2の長さの文字列を取り出す。例　：$1 = strmid( $2, 2, 4 ) 書式：ret = strupr( str ) str :<str>文字列 ret :<str>変換した文字列機能：文字列に含まれるすべての小文字を大文字へ変換する。例　：$1 = strupr( $2 ) 書式：ret = strlwr( str ) str :<str>文字列 ret :<str>変換した文字列機能：文字列に含まれるすべての大文字を小文字へ変換する。例　：$1 = strlwr( $2 ) 書式：ret = strpri( str ) str :<str>文字列 ret :<str>変換した文字列機能：文字列を""でくくった形に変換する。これでｺﾝﾄﾛｰﾙｷｬﾗｸﾀも画面表示可能になります。例　：$1 = strpri( $2 ) 書式：ret = strirp( str ) str :<str>文字列 ret :<str>変換した文字列機能：""でくくられた形の文字列を""なしに変換する（strpri()の逆）。例　：$1 = strirp( $2 ) 書式：ret = strstr( str1, str2 ) str1 :<str>検索対称文字列 str2 :<str>検索文字列 ret :<int>str1上でのstr2の出現位置機能：文字列str1の中で文字列str2が出現した位置を返す（先頭であれば0）。発見できなかった時はｰ1を返す。例　：%1 = strstr( $1, $2 ) 書式：ret = strint( int ) int :<int>ｷｬﾗｸﾀｺｰﾄﾞ（0から255） ret :<str>指定したｷｬﾗｸﾀｺｰﾄﾞの文字列機能：指定したｷｬﾗｸﾀｺｰﾄﾞの文字列を返す。例　：$1 = strint( %1 ) 参考：例の１行をwchar()を使って書き直すと次のようになります。 $1 = space( 1 ) %2 = wchar( $1, 0, %1 ) 書式：ret = getenv( str ) str :<str>環境変数 ret :<str>環境変数の値（文字列）機能：strで示された環境変数を検索し、見つかればその文字列を返し、見つからなければ""を返す。例　：$2 = getenv( $1 ) 書式：ret = strlen( str ) str :<str>文字列 ret :<int>総文字数機能：文字列の総文字数を返す。例　：%1 = strlen( $1 ) ＜文字変換関数＞書式：ret = toupper( c ) c :<int>文字ｺｰﾄﾞ ret :<int>変換した文字ｺｰﾄﾞ機能：cで与えられた文字が小文字であれば大文字に変換する。例　：%1 = toupper( 'a' ) 書式：ret = tolower( c ) c :<int>文字ｺｰﾄﾞ ret :<int>変換した文字ｺｰﾄﾞ機能：cで与えられた文字が大文字であれば小文字に変換する。例　：%1 = tolower( 'A' ) ＜文字種判定関数＞書式：ret = isalpha( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字がｱﾙﾌｧﾍﾞｯﾄであれば1、そうでなければ0を返す。例　：%1 = isalpha( %2 ) 書式：ret = isupper( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字が大文字であれば1、そうでなければ0を返す。例　：%1 = isupper( %2 ) 書式：ret = islower( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字が小文字であれば1、そうでなければ0を返す。例　：%1 = islower( %2 ) 書式：ret = isdigit( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字が数字であれば1、そうでなければ0を返す。例　：%1 = isdigit( %2 ) 書式：ret = isspace( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字がｽﾍﾟｰｽ、ﾀﾌﾞ、CR、LFのいずれかであれば1、そうでなければ0を返す。例　：%1 = isspace( %2 ) 書式：ret = iskanji( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字が漢字1ﾊﾞｲﾄ目（0x81～0x9fまたは0xe0～0xfc）に該当すれば1、そうでなければ0を返す。例　：%1 = iskanji( %2 ) 書式：ret = iskanji2( c ) c :<int>文字ｺｰﾄﾞ ret :<int>結果機能：cで与えられた文字が漢字2ﾊﾞｲﾄ目（0x40～0x7eまたは0x80～0xfc）に該当すれば1、そうでなければ0を返す。例　：%1 = iskanji2( %2 ) ＜ファイル操作関数＞書式：ret = fopen( fname, mode ) fname :<str>ﾌｧｲﾙ名 mode :<str>ｱｸｾｽ形式 ret :<int>ｵｰﾌﾟﾝしたﾌｧｲﾙへのｱｸｾｽｷｰ機能：fnameのﾌｧｲﾙをmodeでｵｰﾌﾟﾝし、ｱｸｾｽｷｰを返す。以後の読み書きはこのｱｸｾｽｷｰにより行う。ｵｰﾌﾟﾝが失敗したときは0が返る。 modeはｱｸｾｽ形式を表す以下のいずれかの文字列を指定すること。 "r" :読みだし可。ﾌｧｲﾙが存在しなければｴﾗｰとする。 "w" :書き込み可。ﾌｧｲﾙが存在するときは上書きする。 "a" :追加書き込み可。ﾌｧｲﾙが存在しなければ新たに作る。 "r+" :読み出し／書き込み可。ﾌｧｲﾙが存在しなければｴﾗｰ。 "w+" :読み出し／書き込み可。ﾌｧｲﾙが存在上書き。 "a+" :読み出し／書き込み可。ﾌｧｲﾙが存在しなければ新たに作る。例：if(( %1 = fopen( "ML.DEF", "r" )) == 0 ) echo "open error!\r" end endif 書式：ret = fclose( key ) key :<int>ﾌｧｲﾙｱｸｾｽｷｰ ret :<int>正常にｸﾛｰｽﾞできれば0。ｴﾗｰが発生したときはｰ1 機能：ﾌｧｲﾙをｸﾛｰｽﾞする。例　：%2 = fclose( %1 ) 書式：ret = fputc( c, key ) c :<int>書き込む文字 key :<int>ﾌｧｲﾙｱｸｾｽｷｰ ret :<int>書き込んだ文字。ｴﾗｰが発生したときはｰ1 機能：ﾌｧｲﾙに１文字を書き込む。例　：if( fputc( 'A', %1 ) == -1 ) echo "fputc error!!" endif 書式：ret = fgetc( key ) key :<int>ﾌｧｲﾙｱｸｾｽｷｰ ret :<int>ﾌｧｲﾙから読み込んだ文字ｴﾗｰが発生したとき、ﾌｧｲﾙの終わりに達したときはｰ1 機能：ﾌｧｲﾙから１文字読みだす。例　：%2 = fgetc( %1 ) 書式：ret = fputs( str, key ) str :<str>書き込む文字列 key :<int>ﾌｧｲﾙｱｸｾｽｷｰ ret :<int>正常に書き込まれれば0。ｴﾗｰが発生したときは0以外機能：ﾌｧｲﾙに文字列を書き込む。例　：%2 = fputs( $1, %1 ) 書式：ret = fgets( buf, n, key ) buf :<str>入力した文字列を格納するﾊﾞｯﾌｧ文字列変数なければいけません。 n :<int>入力する文字数 key :<int>ﾌｧｲﾙｱｸｾｽｷｰ ret :<int>正常に入力できたら0以外ｴﾗｰが発生したとき、ﾌｧｲﾙの終わりに達したときは0 機能：ﾌｧｲﾙから１行読み出すが、１行がn-1文字より長ければn-1文字で切ってbu fに格納します。bufはあらかじめspace関数等で領域を確保しておかなければいけません（領域が読み出す文字数より小さければｴﾗｰとなります）。例　：%1 = fgets( $1, 80, %1 ) 注意：ファイル上の１行はCR(13)、LF(10)２文字で構成されていますが、fgetc() とfgets()で入力するとLFｺｰﾄﾞだけに変換されて入力されます。参考：fopen(),fclose(),fputc(),fgetc(),fputs(),fgets()の各関数はＣ言語の同名のﾗｲﾌﾞﾗﾘ関数を使って実現されています。書式：ret = findfirst( fname ) fname :<str>パス名 ret :<str>検索結果機能：fnameで示されたﾊﾟｽ名を検索し、一致したﾌｧｲﾙがあればﾌｧｲﾙ名を、なければ""を返します（ｴﾗｰが発生した場合も""となります）。ﾊﾟｽ名にはﾜｲﾙﾄﾞｶｰﾄﾞが使用可能です。参考：findfirstと次に説明するfindnextはそれぞれMSｰDOSのﾌｧﾝｸｼｮﾝ4E、4Fを利用しています。DTAを変数$32599へ取っているので、ここを調べれば検索結果の詳細を得ることが出来ます。例　：$1 = findfirst("B:*.AUT") 書式：ret = fundnext() ret :<str>検索結果機能：先だって実行されたfindfirst()を引継ぎ次に一致するﾌｧｲﾙを検索する。例　：$1 = findnext() ＜システム状態取得関数＞書式：ret = status( no ) no :<int>ｽﾃｰﾀｽ番号 ret :<int>ｽｽﾃｰﾀｽ機能：noで指定したｽﾃｰﾀｽを返す。retはﾋﾞｯﾄ毎に意味を持っており、noとretの意味は以下のとおり。 no :0 (ＭＬシステム情報) ret bit13-15:ﾏｼﾝ( 0:pc-9801 1:FMR ) bit7-9 :MLﾒｼﾞｬｰﾊﾞｰｼﾞｮﾝNo bit0-6 :MLﾏｲﾅｰﾊﾞｰｼﾞｮﾝNo no :1 (通信パラメータ) ret bit8-15 :speed( 1:300bps 3:1200 4:2400 ) ( 5:4800 6:9600 7:19200 ) ( 8:38400 ) bit6-7 :ｽﾄｯﾌﾟﾋﾞｯﾄ( 1:1ｽﾄｯﾌﾟﾋﾞｯﾄ 2:1.5 3:2 ) bit4-5 :ﾊﾟﾘﾃｨ( 0:なし 1:奇数 3:偶数 ) bit2-3 :ﾃﾞｰﾀﾋﾞｯﾄ長( 2:7bit 3:8bit ) bit1 :CTS/RTSﾌﾛｰ( 0:なし 1:あり ) bit0 :Xﾌﾛｰ( 0:なし 1:あり ) no :2 (通信状態１) ret bit15 :ﾛｰｶﾙﾙｰﾌﾟ( 0:していない 1:ﾛｰｶﾙﾙｰﾌﾟ中 ) bit11 :ｱｯﾌﾟﾛｰﾄﾞ( 0:していない 1:ｱｯﾌﾟﾛｰﾄﾞ中 ) bit10 :ﾀﾞｳﾝﾛｰﾄﾞ( 0:していない 1:ﾀﾞｳﾝﾛｰﾄﾞ中 ) bit8 :ﾌﾟﾘﾝﾄ ( 0:していない 1:ﾌﾟﾘﾝﾄ中 ) bit7 :受信文字16進ﾀﾞﾝﾌﾟ( 0:していない 1:ﾀﾞﾝﾌﾟ中 ) bit6 :送信文字16進ﾀﾞﾝﾌﾟ( 0:していない 1:ﾀﾞﾝﾌﾟ中 ) bit4 :送信でLFｺｰﾄﾞを入れるか( 0:入れない 1:入れる ) bit3 :ﾛｰｶﾙｴｺｰ( 0:なし 1:あり ) bit0-2 :漢字ｺｰﾄﾞ( 0:ｼﾌﾄJIS 1:NEC 2:旧JIS 3:新JIS ) no :3 (通信状態２) ret bit10 :逆ｽｸﾛｰﾙ（ 0:していない 1:している ) 注．逆ｽｸﾛｰﾙ中はautは一時停止するのでautから　　このﾋﾞｯﾄは検出できない bit9 :ｷｰﾎﾞｰﾄﾞﾏｸﾛ実行（ 0:していない 1:している ) bit8 :ｷｰﾎﾞｰﾄﾞﾏｸﾛ定義（ 0:していない 1:している ) bit5 :画面分割( 0:していない 1:している ) （ＦＭＲはﾁｬｯﾄﾓｰﾄﾞ） bit0-4 :ｳｲﾝﾄﾞｳ( 0:開いていない 0以外:ｳｲﾝﾄﾞｳ行数 ) no :4 (プロトコル) ret bit8 :ﾌﾗｲﾝｸﾞｵﾌﾟｼｮﾝ( 0:なし 1:あり ) bit0-7 :ﾌﾟﾛﾄｺﾙ番号尚、説明のないbitは非公開またはﾘｻﾞｰﾌﾞされています。例　：%1 = status( 3 ) 画面分割中かどうかを調べる if( status( 3 ) & 0b00100000 ) echo "画面分割中" endif ＜コントロールキャラクタテーブル操作関数＞書式：ret = wctbl( tbl, no, c ) tbl :<int>ﾃｰﾌﾞﾙ番号( 0:送信 1:受信 2:画面出力 3:ｷｰ入力 ) no :<int>ｷｬﾗｸﾀｺｰﾄﾞ格納場所( 0から31(0x1f)まで) c :<int>登録文字( -1から255まで、-1は文字なしと解釈) ret :<int>正常終了(0)、書き込み不可(-1) 機能：MLはｺﾄﾛｰﾙｷｬﾗｸﾀｺｰﾄﾞを変換するためのﾃｰﾌﾞﾙを4個持っています。通信中はこのﾃｰﾌﾞﾙにより画面表示等をおこなっています（逆ｽｸﾛｰﾙ中など通信に関わりの無い場面では無効）。このﾃｰﾌﾞﾙを書き換えることによりﾄﾘｯｷｰな動作が可能になります。 wctbl関数は指定されたﾃｰﾌﾞﾙ番号のｷｬﾗｸﾀｺｰﾄﾞ格納位置に登録された内容を書き換えます。-1が登録されるとそのｺｰﾄﾞは無視されます。一度登録されると書き換えが行われない限り変化しません。例　： ESCｷｰをコマンド起動ｷｰにする %1 = wctbl( 3, 0x1b, '^A' ) CTRL+Sを無効にする（押し間違いを未然に防ぐ） %1 = wctbl( 3, '^S', -1 ) ｴｽｹｰﾌﾟｼｰｹﾝｽが無効にする（escｺｰﾄﾞが画面に出力されない） %1 = wctbl( 2, 0x1b, -1 ) send文で発生するﾍﾞﾙ音を抑止する（今ﾊﾞｰｼﾞｮﾝからﾌﾟﾛﾄｺﾙ終了時にﾍﾞﾙが鳴るようにしましたが、これも抑止されます） %1 = wctbl( 2, '^G', -1 ) LFｺｰﾄﾞが入ってきたらCRｺｰﾄﾞに変換します。ＭＬはCR受信を契機に改行します、ﾎｽﾄによってはCR+LF+LFで２行の改行を期待する場合があります。こういう時に有効です。 %1 = wctbl( 1, '\n', '\r' ) %1 = wctbl( 1, '\r', ｰ1 ) %1 = wctbl( 0, '^C', '^X' ) CTRL+CをCTRL+Xに替えて送信します。ﾎｽﾄによってｷｬﾝｾﾙｺｰﾄﾞがいろいろで、うっかり押し間違えることもあります。ﾎｽﾄ毎にｷｰﾃｰﾌﾞﾙを持つことにより操作を統一することができます。注意：ｷｰﾃｰﾌﾞﾙに用意にｱｸｾｽできますが、書き換えることにより支障をきたすｷｰもあります（例えばｷｰ入力でCTRL+Aを無効化すればｺﾏﾝﾄﾞ入力ができなくなる）ので注意してください。書式：ret = rctbl( tbl, no ) tbl :<int>ﾃｰﾌﾞﾙ番号( 0:送信 1:受信 2:画面出力 3:ｷｰ入力 ) no :<int>ｷｬﾗｸﾀｺｰﾄﾞ格納位置(0x1f)まで) ret :<int>登録されていた文字ｺｰﾄﾞ機能：指定したﾃｰﾌﾞﾙ番号のｷｬﾗｸﾀｺｰﾄﾞ格納位置に登録されている文字ｺｰﾄﾞを得る。例　：%1 = rctbl( 0, '^B' ) ★　その他ﾕｰｻﾞｰの皆さんから寄せられた要望は今ﾊﾞｰｼﾞｮﾝでかなり達成したと自負しております。とは言っても、うっかり忘れがあるかもしれませんし、使い込んでいけば不備な点もでてくると思います。そのときは気軽に要望してください。あと使用感など報告して下されば作者として次期ﾊﾞｰｼﾞｮﾝへの参考になると思います。今回のﾊﾞｰｼﾞｮﾝｱｯﾌﾟに関してﾕｰｻﾞｰの皆様から御助言いただきました。特にシーガルネットのソフトＳＩＧの皆さんにはβバージョンをＴＥＳＴ使用していただきました。富士通八戸支店の中山さんにはＦＭＲ版の動作確認で便宜を計っていただきました。富士通のＴＡＫＡさんにはＢＩＯＳの質問等でお世話になりました。この場を借りてお礼申し上げます。